home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2001 May / SGI Freeware 2001 May - Disc 1.iso / dist / fw_teTeX.idb / usr / freeware / share / texmf / dvips / pstricks / pst-ghsb.pro.z / pst-ghsb.pro
Text File  |  2001-01-10  |  3KB  |  91 lines
  1. %!
  2. %                           -*- Mode: Postscript -*- 
  3. % pst-ghsb.pro --- PostScript header file pst-ghsb.pro
  4. %                  For the PSTricks HSB mode gradient fillstyle
  5. %                  Based on pst-grad.pro from Timothy van Zandt
  6. %                  Syntax:
  7. %                    H0 S0 B0 H1 S1 B1 MidPoint NumLines Angle GradientFillHSB
  8. % 
  9. % Author          : Denis GIROU (CNRS/IDRIS - France) <Denis.Girou@idris.fr>
  10. % Created the     : Tue May 13 11:12:36 1997
  11. % Version         : 1.0
  12. % Last mod. by    : Denis GIROU (CNRS/IDRIS - France) <Denis.Girou@idris.fr>
  13. % Last mod. the   : Wed May 14 18:48:03 1997
  14. % 
  15.  
  16. % Syntax:
  17. %   H0 S0 B0 H1 S1 B1 NumLines MidPoint Angle GradientFillHSB
  18.  
  19. /tx@GradientHSBDict 40 dict def
  20. tx@GradientHSBDict begin
  21. /GradientFillHSB {
  22.   rotate
  23.   /MidPoint ED
  24.   /NumLines ED
  25.   /LastBrightness ED
  26.   /LastSaturation ED
  27.   /LastHue ED
  28.   /FirstBrightness ED
  29.   /FirstSaturation ED
  30.   /FirstHue ED
  31.   % This avoids gaps due to rounding errors:
  32.   clip
  33.   pathbbox           %leave llx,lly,urx,ury on stack
  34.   /y ED /x ED
  35.   2 copy translate
  36.   y sub neg /y ED
  37.   x sub neg /x ED
  38.   % This avoids gaps due to rounding errors:
  39.   LastHue FirstHue add 2 div
  40.   LastSaturation FirstSaturation add 2 div
  41.   LastBrightness FirstBrightness add 2 div
  42.   sethsbcolor
  43.   fill
  44.   /YSizePerLine y NumLines div def
  45.   /CurrentY 0 def
  46.   /MidLine NumLines 1 MidPoint sub mul abs cvi def
  47.   MidLine NumLines 2 sub gt
  48.   { /MidLine NumLines def }
  49.   { MidLine 2 lt { /MidLine 0 def } if }
  50.   ifelse
  51.   MidLine 0 gt
  52.   {
  53.     /Hue FirstHue def
  54.     /Saturation FirstSaturation def
  55.     /Brightness FirstBrightness def
  56.     /HueIncrement LastHue FirstHue sub MidLine 1 sub div def
  57.     /SaturationIncrement LastSaturation FirstSaturation sub MidLine 1 sub
  58.                          div def
  59.     /BrightnessIncrement LastBrightness FirstBrightness sub MidLine 1 sub
  60.                          div def
  61.     MidLine { GradientLoopHSB } repeat
  62.   } if
  63.   MidLine NumLines lt
  64.   {
  65.     /Hue LastHue def
  66.     /Saturation LastSaturation def
  67.     /Brightness LastBrightness def
  68.     /HueIncrement FirstHue LastHue sub NumLines MidLine sub 1 sub div def
  69.     /SaturationIncrement FirstSaturation LastSaturation sub
  70.                          NumLines MidLine sub 1 sub div def
  71.     /BrightnessIncrement FirstBrightness LastBrightness sub
  72.                          NumLines MidLine sub 1 sub div def
  73.     NumLines MidLine sub { GradientLoopHSB } repeat
  74.   } if
  75. } def
  76. /GradientLoopHSB {
  77.   0 CurrentY moveto
  78.   x 0 rlineto
  79.   0 YSizePerLine rlineto
  80.   x neg 0 rlineto
  81.   closepath
  82.   Hue Saturation Brightness sethsbcolor fill
  83.   /CurrentY CurrentY YSizePerLine add def
  84.   /Brightness Brightness BrightnessIncrement add def
  85.   /Saturation Saturation SaturationIncrement add def
  86.   /Hue Hue HueIncrement add def
  87. } def
  88.  
  89. end
  90. % END pst-ghsb.pro
  91.